library(tidyverse)
library(lubridate)
library(tidyquant)
library(plotly)

ProTip: When using TOC, make sure to start with H1 headers, whih are used to generate the TOC

source("01_Scripts/plot_sales.R")
bike_orderlines_tbl <- read_rds("00_Data/bike_sales/data_wrangled/bike_orderlines.rds")
interactive <- FALSE

1 Total Sales Charts

2 Category Sales Charts

2.1 Road

2.1.1 Quarterly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "quarter",
                interactive = interactive)

2.1.2 Monthly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "month",
                interactive = interactive)

2.1.3 Weekly

plot_categories(category_1 = "Road",
                ncol = 1,
                unit = "week",
                interactive = interactive)

2.2 Mountain

2.2.1 Quarterly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "quarter",
                interactive = interactive)

2.2.2 Monthly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "month",
                interactive = interactive)

2.2.3 Weekly

plot_categories(category_1 = "Mountain",
                ncol = 1,
                unit = "week",
                interactive = interactive)